|
VBasic / vb.net / vbs / wsh : Autostart von Makros beim öffnen einer Exceldatei
Thomas Harmening am 27.06.2007 um 18:38 Uhr (0)
excel kann angewiesen werden beim öffen einen Code auzuführenALT & F11Modul DieseArbeitsmappe ( bzw. ThisWorkbook) in die Prozedur:Code:Private Sub Workbook_Open() call dein Makro End SubHTH
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : VBA-Fragen- wohin?
Thomas Harmening am 13.09.2013 um 15:48 Uhr (1)
Ich würde die VBA-Fragen grundsätzlich immer im Forum der jeweiligen Application stellen.Einer der in Excel und Vba fit ist, ist es noch lange nicht in Word-Vba, geschweige denn Solidwoks-Vba,geschweige denn das er das geforderte/gewünschte Szenario nachbilden könnte.ich zb. habe kein Visual Basic auf dem Rechner, kann aber mit Excel/Vba und Catia/Vba entsprechende Hilfestellungen geben.
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Excel öffnen mit Workbook
Thomas Harmening am 13.09.2008 um 15:20 Uhr (0)
Mit DIM werden Variablen deklariert.würde das laufen? ich habe hier kein VB2008 und auch kein V5, nur Excel Code:Sub XLstart-neuesblatt-umbenennen()Dim xlApp As Excel.ApplicationDim xlWB As Excel.WorkbooksDim xlWS As Excel.WorksheetSet xlApp = CreateObject("Excel.Application")Set xlWB = xlApp.Workbooks xlApp.Visible = True Excel anzeigen xlWB.Add (xlWBATWorksheet) neues BlattSet xlWS = xlApp.ActiveWorkbook.ActiveSheet xlWS.Name = "Import" Name für das aktive Blatt vergebenEnd Sub
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Excel öffnen mit Workbook
Thomas Harmening am 13.09.2008 um 15:08 Uhr (0)
hmm, würde das laufen? ich habe hier kein VB2008 und auch kein V5, nur Excel Code:Sub XLstart-neuesblatt-umbenennen()Set xlApp = CreateObject("Excel.Application")Set xlWB = xlApp.Workbooks xlApp.Visible = True Excel anzeigen xlWB.Add (xlWBATWorksheet) neues BlattSet xlWS = xlApp.ActiveWorkbook.ActiveSheet xlWS.Name = "Bild-Import" Name für das aktive Blatt vergebenEnd Sub
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Excel öffnen mit Workbook
Thomas Harmening am 13.09.2008 um 14:04 Uhr (0)
Code:Set newWb = objExcel.Workbooks.Add(xlWBATWorksheet)
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Excel öffnen mit Workbook
Thomas Harmening am 13.09.2008 um 14:04 Uhr (0)
Code:Set newWb = objExcel.Workbooks.Add(xlWBATWorksheet)
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Excel öffnen mit Workbook
Thomas Harmening am 13.09.2008 um 13:39 Uhr (0)
Code:Set newWb = objExcel.Workbooks.Add(xlWBATWorksheet)
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : String ausrechnen
Thomas Harmening am 12.11.2009 um 23:21 Uhr (0)
hmm, mit Excel wäre esCode:xy = Evaluate(string)und mangels VB kann ich nur googeln... "vb Evaluate" http://www.vb-helper.com/howto_evaluate_expressions.html http://deadline.3x.ro/vb6code_find_roots.html HTH
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Excel VBA: Falsche Adresse bei Range(...) erkennen
Thomas Harmening am 13.09.2013 um 19:43 Uhr (1)
Normalerweise muss es immer einen Fehlermeldung geben, diese kann man ja dann gezielt behandeln.Code:Sub abfrage() On Error GoTo ErrorHandler If Range("Filepath").Value = "" Then Err = 1 GoTo ErrorHandler Else ModelPath = Range("Filepath").Value End IfErrorHandler:Select Case Err Case 1 MsgBox ("Fehlernummer " & Err & " = Zelle ist Leer" & vbLf & vbLf & "da sollte schon was drinnen stehen^^") Case 1004 MsgBox ("Fehlernummer " & Err & " ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic : Visual Basic in Excel
Thomas Harmening am 11.02.2005 um 18:44 Uhr (0)
=INDEX($C$2:$C$200;SPALTE(A$1);ZEILE(A$1)) in E2 eingegeben sollte es auch erfüllen formel ist stabil beim nach rechts kopieren und beim E4, E6 einfügen etc... eine weitere möglichkeit wäre E2-IU2 markieren =MTRANS($C2:$C2) eingeben und mit strg+shift+enter eine matrixformel erstellen, aber nicht ganz so flexibel wie obengenannte formel Zitat: Original erstellt von Robertdbz2: (...)wenn mich jetzt jemand fragt was die Befehle bewirken stehe ich dumm da. Wenn dein Gegenüber ebenso keine Ahnung ...
|
| In das Form VBasic wechseln |
|
VBasic / vb.net / vbs / wsh : zuletzt gespeichert von
Thomas Harmening am 27.08.2009 um 16:33 Uhr (0)
hilft das? habe es nur mit Excel-vba getestet.Code:Sub auslesen()Set fs = CreateObject("Scripting.FileSystemObject")Set f1 = fs.GetFile("x:CADdatacatiaopboxma01Dom_4_holi2.log")li = ""li = li & "Existiert Datei?: " & fs.fileexists(f1) & vbCrli = li & "Name: " & f1.Name & vbCrli = li & "Pfad mit Dateiname: " & f1.Path & vbCrli = li & "Dospfadname: " & f1.shortpath & vbCrli = li & "Dosname: " & f1.shortname & vbCrli = li & "Datei-Endung: " & fs.GetExtensionName(f1) & vbCrli = li & "Pfad: " & fs.GetParentFold ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
